home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Libraries / SAT 2.3a1 / Misc / SATminimalX ƒ / SATminimalX.p < prev    next >
Encoding:
Text File  |  1994-08-23  |  1.4 KB  |  29 lines  |  [TEXT/PJMM]
  1. ritePtr;
  2.         l: longint;
  3. begin
  4. {Standard Inits are done by Think Pascal.}
  5.  
  6. {Initialize, using PICTs 128 or 129 as background, Classic-sized drawing area}
  7.     SATInit(128, 129, 512, 322);
  8.  
  9. {Initialize sprite unit(s), by preloading faces and sounds}
  10.     InitMySprite;
  11.  
  12. {Make some sprites}
  13.     ignoreSp := SATNewSprite(0, 50, 50, @SetupMySprite);
  14.     ignoreSp := SATNewSprite(0, 100, 100, @SetupMySprite);
  15.     ignoreSp := SATNewSprite(0, 125, 120, @SetupMySprite);
  16.     ignoreSp := SATNewSprite(0, 150, 140, @SetupMySprite);
  17.     ignoreSp := SATNewSprite(0, 200, 180, @SetupMySprite);
  18.     ignoreSp := SATNewSprite(0, 250, 200, @SetupMySprite);
  19.     ignoreSp := SATNewSprite(0, 300, 250, @SetupMySprite);
  20.  
  21.     repeat
  22.         l := TickCount;
  23.         SATRun(true); {Run one frame of animation}
  24.         while l > TickCount - 3 do {Maximize speed to 20 fps}
  25.             ;
  26.     until Button;
  27.  
  28.     SATSoundShutUp; {Always de-allocate the sound channel before quitting!}
  29. end.